home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SELFILE.PLP < prev    next >
Text File  |  1991-02-24  |  707b  |  20 lines
  1. /* auto pilot program ｢NEM 2.00｣           1991.2.24   By GOOSE(MAF00070) */
  2. /* %Selfile  { */
  3. /*  [title] */
  4. /* Selfile:ファイルの複数選択結果を文字列で返す｡
  5. **         選択:B:\AA.TXT,B:\BB -> "B:\AA.TXT,B:\BB,No," */
  6.   var selfile[100];selfile:={};
  7.   %getfile {
  8.     case(selfile={},{No},
  9.       {display({★★ 選択されているファイルは }|@body(selfile,,{,})|{ です｡\n})
  10.     });
  11.     %temp @filesel;    
  12.     case(temp={},
  13.       {Yes},{selfile:=selfile|{No,};im({No})},
  14.       {No},{selfile:=selfile|@Getcdir2|{\}|temp|{,};im({Yes})})
  15.   };
  16.   loop({select(TITLE|{ﾌｧｲﾙを選択して下さい(終了は右ｸﾘｯｸ)｡},{600},
  17.          {im({Yes})},{ 確認 },{im({No})} )});
  18.   loop({getfile});im(selfile)
  19. /* }; */
  20.